-- card: 8474 from stack: in.1
-- bmap block id: 0
-- flags: 0000
-- background id: 2612
-- name: ImportPict


-- part 1 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=225 top=242 right=292 bottom=284
-- title width / last selected line: 0
-- icon id / first selected line: 27056 / 27056
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Try This
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  put "This will create a new stack for your pictures"
  set lockmessages to true
  put the long name of this stack into returnHere
  put "Select the file you want to import pictures from..."
  put filename()into getFromThis
  if getFromThis is empty then
    oops
  else
    put "Please name your new picture stack"
    domenu "New Stack..."
    put "Please wait..."
    importpict(getFromThis)
  end if
  hide message window
  set lockmessages to false
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=82 top=302 right=324 bottom=182
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Install
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  put installres(XCMD,ImportPict) into it
  if it is empty then play oops
  else answer it
end mouseUp



-- part contents for background part 13
----- text -----
7

-- part contents for background part 2
----- text -----
ImportPict

-- part contents for background part 3
----- text -----

This will import all the PICTs from a file and put them into a stack, one picture per card.  







Thanks to:
Andy Hertzfeld (who?)

-- part contents for background part 10
----- text -----
Syntax:

ImportPict <filename>